home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / thrdmrg.zip / RBBS-PC.MRG next >
Text File  |  1988-10-28  |  2KB  |  56 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
  3. * RBBS-PC.BAS:  Date 10-12-1988  Size 138779 bytes
  4. * ------------[ Created 10-28-1988 18:46:11 ]------------
  5. * REPLACING old line(s) by new
  6. 3640 CALL SKIPLINE (1)
  7.      LSET MESSAGE.RECORD$ = MESSAGE.RECORD.SAVE$
  8.      GOSUB 24000
  9.      GOSUB 12985
  10. ' ---[ notify receiver that has new mail waiting ]---
  11.      IF RECEIVER.RECORD.NUM > 0 THEN _
  12.         SUIX = USER.FILE.INDEX : _
  13.         USER.RECORD.HOLD$ = USER.RECORD$ : _
  14.         USER.FILE.INDEX = RECEIVER.RECORD.NUM : _
  15.         GOSUB 12989 : _
  16.         GET 5, RECEIVER.RECORD.NUM : _
  17.         X = CVI(MID$(USER.RECORD$,57,2)) : _
  18.         MID$(USER.RECORD$,57,2) = MKI$(X OR 512) : _
  19.         PUT 5, RECEIVER.RECORD.NUM : _
  20.         GOSUB 12991 : _
  21.         USER.FILE.INDEX = SUIX : _
  22.         LSET USER.RECORD$ = USER.RECORD.HOLD$ : _
  23.         CALL QTPUT ("Receiver will be notified of new mail",1) : _
  24.         RECEIVER.RECORD.NUM = 0
  25. * ------[ first line different ]------
  26. '************************ MESSAGE THREAD *****************
  27. * REPLACING old line(s) by new
  28. * ------[ first line different ]------
  29. 3650 IF REPLY AND Z.ABORT = 0 THEN _         
  30.         CALL THREAD1(HIGH.MESSAGE.NUMBER,CURRENT.MESSAGE,GRN$)  'GRB
  31.       Z.ABORT = 0
  32.      IF REPLY THEN _
  33.         REPLY = FALSE : _
  34.         GOTO 5344
  35.      IF GET.EXT.DESC THEN _
  36.         LINES.IN.MESSAGE = 0 : _
  37.         RETURN
  38.      RETURN 1200
  39. '
  40. ' ****  K - COMMAND FROM MAIN MENU (KILL MESSAGE)  ****
  41. '
  42. * REPLACING old line(s) by new
  43. 3950 GOSUB 5344
  44.      CALL KILLMSG (MESSAGE.TO.KILL,ACTIVE.MESSAGES)
  45. * ------[ first line different ]------
  46.      CALL THREAD2 (MESSAGE.TO.KILL,ACTIVE.MESSAGES,GRN$)   'Thread Mod
  47. * REPLACING old line(s) by new
  48. * ------[ first line different ]------
  49. 4613  CALL THREAD3(CURRENT.MESSAGE,GRN$)
  50.        GOSUB 9000
  51.        IF JUST.SEARCHING THEN _
  52.           GOTO 4625
  53.        IF MESSAGES.SELECTED.INDEX > NUMBER.MESSAGES.SELECTED THEN _
  54.           GOTO 4650
  55.        CALL SKIPLINE (1)
  56.